/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / STUTTGART / FROMUTS / COMMANDER / Examples_!StampFile_!RUNIMAGE

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 21 f4 20 3e 20 | 3c 53 74 61 6d 70 46 69 |...!. > |<StampFi|
|00000010| 6c 65 24 44 69 72 3e 2e | 21 52 55 4e 49 4d 41 47 |le$Dir>.|!RUNIMAG|
|00000020| 45 0d 00 14 1b de 20 71 | 25 20 26 31 30 30 2c 20 |E..... q|% &100, |
|00000030| 65 72 72 62 6c 6b 25 20 | 26 31 30 30 0d 00 1e 13 |errblk% |&100....|
|00000040| de 20 74 20 34 3a 24 74 | 3d 22 54 41 53 4b 22 0d |. t 4:$t|="TASK".|
|00000050| 00 28 2b c8 99 20 22 57 | 69 6d 70 5f 49 6e 69 74 |.(+.. "W|imp_Init|
|00000060| 69 61 6c 69 73 65 22 2c | 32 30 30 2c 21 74 2c 22 |ialise",|200,!t,"|
|00000070| 53 74 61 6d 70 46 69 6c | 65 22 0d 00 32 0a f2 6d |StampFil|e"..2..m|
|00000080| 65 6e 75 73 0d 00 3c 0f | f2 69 6e 73 74 61 6c 6c |enus..<.|.install|
|00000090| 62 69 6e 0d 00 46 39 ee | 20 85 20 c8 99 22 57 69 |bin..F9.| . .."Wi|
|000000a0| 6d 70 5f 52 65 70 6f 72 | 74 45 72 72 6f 72 22 2c |mp_Repor|tError",|
|000000b0| 20 a4 65 72 72 62 6c 6b | 28 9f 2c f6 24 29 2c 31 | .errblk|(.,.$),1|
|000000c0| 2c 22 53 74 61 6d 70 46 | 69 6c 65 22 0d 00 50 05 |,"StampF|ile"..P.|
|000000d0| f5 0d 00 5a 21 c8 99 20 | 22 57 69 6d 70 5f 50 6f |...Z!.. |"Wimp_Po|
|000000e0| 6c 6c 22 2c 30 2c 71 25 | 20 b8 20 61 63 74 69 6f |ll",0,q%| . actio|
|000000f0| 6e 25 0d 00 64 10 c8 8e | 20 61 63 74 69 6f 6e 25 |n%..d...| action%|
|00000100| 20 ca 0d 00 6e 12 c9 20 | 36 3a f2 6d 6f 75 73 65 | ...n.. |6:.mouse|
|00000110| 28 71 25 29 0d 00 78 17 | c9 20 39 3a f2 64 65 63 |(q%)..x.|. 9:.dec|
|00000120| 6f 64 65 6d 65 6e 75 28 | 71 25 29 0d 00 82 19 c9 |odemenu(|q%).....|
|00000130| 20 31 37 2c 31 38 20 3a | f2 6d 65 73 73 61 67 65 | 17,18 :|.message|
|00000140| 28 71 25 29 0d 00 8c 05 | cb 0d 00 96 07 fd 20 a3 |(q%)....|...... .|
|00000150| 0d 00 a0 04 0d 00 aa 0f | dd f2 6d 6f 75 73 65 28 |........|..mouse(|
|00000160| 71 25 29 0d 00 b4 0c 6d | 78 25 3d 71 25 21 30 0d |q%)....m|x%=q%!0.|
|00000170| 00 be 0c 6d 79 25 3d 71 | 25 21 34 0d 00 c8 0c 6d |...my%=q|%!4....m|
|00000180| 62 25 3d 71 25 21 38 0d | 00 d2 13 e7 20 71 25 21 |b%=q%!8.|.... q%!|
|00000190| 31 32 3c 3e 2d 32 20 8c | 20 e1 0d 00 dc 0c c8 8e |12<>-2 .| .......|
|000001a0| 20 6d 62 25 20 ca 0d 00 | e6 1b c9 20 26 30 32 20 | mb% ...|... &02 |
|000001b0| 3a 20 6d 65 6e 75 69 63 | 6f 6e 25 3d 71 25 21 31 |: menuic|on%=q%!1|
|000001c0| 36 0d 00 f0 40 20 c8 99 | 20 22 57 69 6d 70 5f 43 |6...@ ..| "Wimp_C|
|000001d0| 72 65 61 74 65 4d 65 6e | 75 22 2c 2c 69 63 6f 6e |reateMen|u",,icon|
|000001e0| 6d 65 6e 75 25 2c 6d 78 | 25 2d 69 63 6f 6e 6d 65 |menu%,mx|%-iconme|
|000001f0| 6e 75 25 21 31 36 2f 32 | 2d 32 34 2c 39 36 2b 34 |nu%!16/2|-24,96+4|
|00000200| 34 0d 00 fa 05 cb 0d 01 | 04 05 e1 0d 01 0e 14 dd |4.......|........|
|00000210| f2 64 65 63 6f 64 65 6d | 65 6e 75 28 71 25 29 0d |.decodem|enu(q%).|
|00000220| 01 18 0c c8 8e 20 21 71 | 25 20 ca 0d 01 22 1e c9 |..... !q|% ..."..|
|00000230| 20 30 3a 20 c8 99 20 22 | 57 69 6d 70 5f 43 6c 6f | 0: .. "|Wimp_Clo|
|00000240| 73 65 44 6f 77 6e 22 3a | e0 0d 01 2c 05 cb 0d 01 |seDown":|...,....|
|00000250| 36 05 e1 0d 01 40 11 dd | f2 6d 65 73 73 61 67 65 |6....@..|.message|
|00000260| 28 71 25 29 0d 01 4a 0e | c8 8e 20 71 25 21 31 36 |(q%)..J.|.. q%!16|
|00000270| 20 ca 0d 01 54 1f c9 20 | 30 20 3a 20 c8 99 20 22 | ...T.. |0 : .. "|
|00000280| 57 69 6d 70 5f 43 6c 6f | 73 65 44 6f 77 6e 22 3a |Wimp_Clo|seDown":|
|00000290| e0 0d 01 5e 24 c9 20 33 | 20 3a 20 f2 73 74 61 6d |...^$. 3| : .stam|
|000002a0| 70 66 69 6c 65 28 a4 73 | 74 72 69 6e 67 28 71 25 |pfile(.s|tring(q%|
|000002b0| 2b 34 34 29 29 0d 01 68 | 05 cb 0d 01 72 05 e1 0d |+44))..h|....r...|
|000002c0| 01 7c 16 dd f2 73 74 61 | 6d 70 66 69 6c 65 28 66 |.|...sta|mpfile(f|
|000002d0| 69 6c 65 24 29 0d 01 86 | 37 71 25 21 31 32 3d 71 |ile$)...|7q%!12=q|
|000002e0| 25 21 38 3a 71 25 21 31 | 36 3d 34 3a c8 99 20 22 |%!8:q%!1|6=4:.. "|
|000002f0| 57 69 6d 70 5f 53 65 6e | 64 4d 65 73 73 61 67 65 |Wimp_Sen|dMessage|
|00000300| 22 2c 31 37 2c 71 25 2c | 71 25 21 34 0d 01 90 16 |",17,q%,|q%!4....|
|00000310| ff 28 22 2a 53 74 61 6d | 70 20 22 2b 66 69 6c 65 |.("*Stam|p "+file|
|00000320| 24 29 0d 01 9a 05 e1 0d | 01 a4 04 0d 01 ae 10 dd |$)......|........|
|00000330| f2 69 6e 73 74 61 6c 6c | 62 69 6e 0d 01 b8 19 ea |.install|bin.....|
|00000340| 20 73 78 25 2c 73 79 25 | 2c 73 6d 25 2c 70 78 25 | sx%,sy%|,sm%,px%|
|00000350| 2c 70 79 25 0d 01 c2 18 | 73 70 72 69 74 65 24 3d |,py%....|sprite$=|
|00000360| 22 21 53 74 61 6d 70 66 | 69 6c 65 22 0d 01 cc 11 |"!Stampf|ile"....|
|00000370| 74 65 78 74 24 3d 22 53 | 74 61 6d 70 22 0d 01 d6 |text$="S|tamp"...|
|00000380| 2b de 20 73 70 72 69 74 | 65 25 20 28 a9 28 73 70 |+. sprit|e% (.(sp|
|00000390| 72 69 74 65 24 29 2b 31 | 29 2c 74 65 78 74 25 20 |rite$)+1|),text% |
|000003a0| a9 28 74 65 78 74 24 29 | 0d 01 e0 3e 24 73 70 72 |.(text$)|...>$spr|
|000003b0| 69 74 65 25 3d 22 53 22 | 2b 73 70 72 69 74 65 24 |ite%="S"|+sprite$|
|000003c0| 20 3a f4 20 56 61 6c 69 | 64 61 74 69 6f 6e 20 73 | :. Vali|dation s|
|000003d0| 74 72 69 6e 67 20 74 6f | 20 64 65 66 69 6e 65 20 |tring to| define |
|000003e0| 73 70 72 69 74 65 0d 01 | ea 10 24 74 65 78 74 25 |sprite..|..$text%|
|000003f0| 3d 74 65 78 74 24 0d 01 | f4 34 c8 99 20 22 57 69 |=text$..|.4.. "Wi|
|00000400| 6d 70 5f 53 70 72 69 74 | 65 4f 70 22 2c 34 30 2c |mp_Sprit|eOp",40,|
|00000410| 2c 73 70 72 69 74 65 24 | 20 b8 20 2c 2c 2c 73 78 |,sprite$| . ,,,sx|
|00000420| 25 2c 73 79 25 2c 2c 73 | 6d 25 0d 01 fe 39 c8 99 |%,sy%,,s|m%...9..|
|00000430| 20 22 4f 53 5f 52 65 61 | 64 4d 6f 64 65 56 61 72 | "OS_Rea|dModeVar|
|00000440| 69 61 62 6c 65 22 2c 73 | 6d 25 2c 34 20 b8 20 2c |iable",s|m%,4 . ,|
|00000450| 2c 70 78 25 20 3a 20 73 | 78 25 3d 73 78 25 3c 3c |,px% : s|x%=sx%<<|
|00000460| 70 78 25 0d 02 08 39 c8 | 99 20 22 4f 53 5f 52 65 |px%...9.|. "OS_Re|
|00000470| 61 64 4d 6f 64 65 56 61 | 72 69 61 62 6c 65 22 2c |adModeVa|riable",|
|00000480| 73 6d 25 2c 35 20 b8 20 | 2c 2c 70 79 25 20 3a 20 |sm%,5 . |,,py% : |
|00000490| 73 79 25 3d 73 79 25 3c | 3c 70 79 25 0d 02 12 2a |sy%=sy%<|<py%...*|
|000004a0| e7 20 a9 28 74 65 78 74 | 24 29 20 2a 31 36 20 3e |. .(text|$) *16 >|
|000004b0| 20 73 78 25 20 8c 20 73 | 78 25 3d a9 28 74 65 78 | sx% . s|x%=.(tex|
|000004c0| 74 24 29 2a 31 36 0d 02 | 1c 0a 21 71 25 3d 2d 31 |t$)*16..|..!q%=-1|
|000004d0| 0d 02 26 2f 71 25 21 34 | 3d 30 3a 71 25 21 38 3d |..&/q%!4|=0:q%!8=|
|000004e0| 2d 31 36 3a 71 25 21 31 | 32 3d 71 25 21 34 2b 73 |-16:q%!1|2=q%!4+s|
|000004f0| 78 25 3a 71 25 21 31 36 | 3d 32 30 2b 73 79 25 0d |x%:q%!16|=20+sy%.|
|00000500| 02 30 13 71 25 21 32 30 | 3d 26 31 37 30 30 33 31 |.0.q%!20|=&170031|
|00000510| 30 42 0d 02 3a 0f 71 25 | 21 32 34 3d 74 65 78 74 |0B..:.q%|!24=text|
|00000520| 25 0d 02 44 11 71 25 21 | 32 38 3d 73 70 72 69 74 |%..D.q%!|28=sprit|
|00000530| 65 25 0d 02 4e 12 71 25 | 21 33 32 3d a9 28 74 65 |e%..N.q%|!32=.(te|
|00000540| 78 74 24 29 0d 02 58 22 | c8 99 20 22 57 69 6d 70 |xt$)..X"|.. "Wimp|
|00000550| 5f 43 72 65 61 74 65 49 | 63 6f 6e 22 2c 2c 71 25 |_CreateI|con",,q%|
|00000560| 20 b8 20 21 71 25 0d 02 | 62 05 e1 0d 02 6c 04 0d | . !q%..|b....l..|
|00000570| 02 76 0b dd f2 6d 65 6e | 75 73 0d 02 80 17 de 20 |.v...men|us..... |
|00000580| 69 63 6f 6e 6d 65 6e 75 | 25 20 32 38 2b 31 2a 32 |iconmenu|% 28+1*2|
|00000590| 34 0d 02 8a 1c 24 69 63 | 6f 6e 6d 65 6e 75 25 20 |4....$ic|onmenu% |
|000005a0| 3d 20 22 53 74 61 6d 70 | 46 69 6c 65 22 0d 02 94 |= "Stamp|File"...|
|000005b0| 12 69 63 6f 6e 6d 65 6e | 75 25 3f 31 32 3d 37 0d |.iconmen|u%?12=7.|
|000005c0| 02 9e 14 69 63 6f 6e 6d | 65 6e 75 25 3f 31 33 20 |...iconm|enu%?13 |
|000005d0| 3d 20 32 0d 02 a8 12 69 | 63 6f 6e 6d 65 6e 75 25 |= 2....i|conmenu%|
|000005e0| 3f 31 34 3d 37 0d 02 b2 | 12 69 63 6f 6e 6d 65 6e |?14=7...|.iconmen|
|000005f0| 75 25 3f 31 35 3d 30 0d | 02 bc 20 69 63 6f 6e 6d |u%?15=0.|.. iconm|
|00000600| 65 6e 75 25 21 31 36 20 | 3d 20 a9 22 51 75 69 74 |enu%!16 |= ."Quit|
|00000610| 22 2a 31 36 2b 31 32 0d | 02 c6 13 69 63 6f 6e 6d |"*16+12.|...iconm|
|00000620| 65 6e 75 25 21 32 30 3d | 34 34 0d 02 d0 12 69 63 |enu%!20=|44....ic|
|00000630| 6f 6e 6d 65 6e 75 25 21 | 32 34 3d 30 0d 02 da 14 |onmenu%!|24=0....|
|00000640| 69 63 6f 6e 6d 65 6e 75 | 25 21 32 38 3d 26 38 30 |iconmenu|%!28=&80|
|00000650| 0d 02 e4 13 69 63 6f 6e | 6d 65 6e 75 25 21 33 32 |....icon|menu%!32|
|00000660| 3d 2d 31 0d 02 ee 1a 69 | 63 6f 6e 6d 65 6e 75 25 |=-1....i|conmenu%|
|00000670| 21 33 36 3d 26 30 37 30 | 30 30 30 30 31 0d 02 f8 |!36=&070|00001...|
|00000680| 1a 24 28 69 63 6f 6e 6d | 65 6e 75 25 2b 34 30 29 |.$(iconm|enu%+40)|
|00000690| 3d 22 51 75 69 74 22 0d | 03 02 05 e1 0d 03 0c 04 |="Quit".|........|
|000006a0| 0d 03 16 10 dd a4 73 74 | 72 69 6e 67 28 61 25 29 |......st|ring(a%)|
|000006b0| 0d 03 20 2d ea 20 62 24 | 3a 62 24 3d 22 22 3a c8 |.. -. b$|:b$="":.|
|000006c0| 95 20 3f 61 25 3c 3e 30 | 3a 62 24 2b 3d bd 3f 61 |. ?a%<>0|:b$+=.?a|
|000006d0| 25 3a 61 25 2b 3d 31 3a | ce 3a 3d 62 24 0d 03 2a |%:a%+=1:|.:=b$..*|
|000006e0| 04 0d 03 34 1a dd a4 65 | 72 72 62 6c 6b 28 65 72 |...4...e|rrblk(er|
|000006f0| 72 25 2c 72 65 70 6f 72 | 74 24 29 0d 03 3e 2b e7 |r%,repor|t$)..>+.|
|00000700| 20 9f 3d 36 37 37 38 38 | 20 8c 20 72 65 70 6f 72 | .=67788| . repor|
|00000710| 74 24 3d 22 46 69 6c 65 | 6e 61 6d 65 20 74 6f 6f |t$="File|name too|
|00000720| 20 4c 6f 6e 67 22 0d 03 | 48 26 21 65 72 72 62 6c | Long"..|H&!errbl|
|00000730| 6b 25 3d 65 72 72 25 3a | 24 28 65 72 72 62 6c 6b |k%=err%:|$(errblk|
|00000740| 25 2b 34 29 3d 72 65 70 | 6f 72 74 24 0d 03 52 1f |%+4)=rep|ort$..R.|
|00000750| 65 72 72 62 6c 6b 25 3f | 28 34 2b a9 24 28 65 72 |errblk%?|(4+.$(er|
|00000760| 72 62 6c 6b 25 2b 34 29 | 29 3d 30 0d 03 5c 0c 3d |rblk%+4)|)=0..\.=|
|00000770| 65 72 72 62 6c 6b 25 0d | 03 66 04 0d 03 70 04 0d |errblk%.|.f...p..|
|00000780| ff                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+